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Of the three parts from which SA'T/1/LZ.r/fIK communications are built — a 
message form, its Intent, and the actual method used to carry out the Intent-- 
only the first two are shown In this note. The methods have been completely 
suppressed irregardless of how simple they might have been to say. 

SMALLTALK Is based on a simple yet comprehensive model of the 
universe: there are only objects which contain local memory (or state); the 
objects communicate by sending and receiving messages (which are also 
objects): the objects are defined by a cless description which Is a collection of 
properties common to each member of the class and is specified fay giving 
recognizers and replies to only those messages to which an object In the class Is 
v/flling to respond. 

r/lINOR DETAILS 

a. To food your disti pack: If the switch on the left and the light on the 
right don't Sc\y "load", then push the switch to "load" and wait for the light. (A 
prevfous user will leave a note on the Keyboard if this Is not OK.) Pull the door 
open and remove the disk if there. Slide your disk In, close the door and push 
switch to "run". In about 20 seconds, the "run" light should come on and your 
pack Is loaded. 

b. To start SMALLTALKING; Look for a little switch on the 
Keyboard. ..either behind near the. cable or on the right underside. Push It. The 
screen should go blank and then ask for your name. Type it and push "doit" 
<|{ne feed>; a prpinpt (J^.) will be displayed and you are ready to go. 

c. The font editor aUaws us to have considerable flexibility In choosing 
Iconic representations for symbols. Unfortunately, the plastic tops of the keys 
do not change so readily. Here are the current correspondences between 
SMALLTALK symbols and keys. 



Only those . messages which are relevant to the August class for non- 
programmers have been Included; see SYSDEFS for the complete story. 
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ft !, s> ?, ! <linefeed>, 



v ~. 



D $ 



MODEL OF A SMALLTALK CLASS DESCRIPTiON 



names in the local dictionary of the class 
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In the description which follows, 'DQO\ ' 'i '...*i are not currently part of 
SMALLTALK but are used to stand for arbitrary SMALLTALK objects such as '3\ 
•x', '«-', '(a b c)\ and so forth. 

MESSAGE FORMS INTENTIONS 

(ODD...) (,), may be used to group SMALLTALK objects. 

\ljj DDP ... . Send^^^hhe message ODD ... 

(messages csri {3e terminated "by *,') 

0',., Consider the next thing //fera//y— acts like *...* In 

English 

^.,. Look to see If next thing Is literally In the message. 

If not, return false, 

% Receive the i/alue of the next expression In the message* 

S /?ece/Ve the next thing in the message literally, 

(t ... Return the value of the next thing to the sender, 

... ^(DDD) \f the value of ... Is not false, then 

evaluate DQO and leave next higher level. Otherwise 
continue to the right. 

Objects will return themselves to the sender If no explicit A ... Is given. 

to riame X y: printname 

isnew :>()} ...) Receive text of the new name Into 'printname'. 

Return a unique reference to this object. 
A name starts with a letter and consists of any number 
of further letters and digits. 



< Is => 



< ? s» (...) Answer is 'name' 

<$ name o (...) Answer is 'true' 
[I.ft false Answer Is 'false' 



<$ print s^ (...) The text in 'printname' Is sent to the display 

<** ^ (S ...) Look up this name in nearest dictionary and 

enter the value j] . 

^ evnl z> (...) Lookup this name In nearest dictionary and 

evaluate the value 

;(^ chars :> (...) Return the text in printname 

< ^ i> if} ...) If this name Is not the same as g, return false: 
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to number x y: val : nprint 

'npr'int' Is common to all numbers and helps print them, 

Isnew o- (S,..) Receive textual form of the number which Is made Into 

an Internal form that is understood by the ALTO 
and entered into 'vol*. A number starts with a 
digit and consists of zero or more further digits. 



< Is => 



<S 7 :> {..,) Answer is 'number' 

<j n.umber:> (...) Answer is 'true' 
D-H false) Answer is 'false' 



< print » (...) The Internal form In 'val' is made back into text 

and sent to the display, 

^ + s»> (S...) Return the sum of the number and 

< - :> (g...) Return the difference of the number and g 

< * ^ (S—) Return the product of the number and g 

<f / s> (g— ) Return the quotient of the number and 0. 

<$ rem :> (g...) Return the remainder of the number and g 

^ < :> (g.,.) Return fa/se if tlie number is not less 

than g, otherwise return the number 

< > r> (g..,) Return false If the number is not less 

than g; otherwise, return the number 

<f = i> (g) Return false If the number is not equal to 

g; otherwise, return the number 



Number has quite a few more messages (see SYSDEFS). 
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to turtle z: X y dir pen ink 

Isnevv t> (...) creates a new turtle 

< is t>j^ ? c» (...) Answer is 'turtle' 

<f turtle s» (...) Ansvycr is 'true' 
D.fl false Answer is 'false* 



<<? print :> (...) 

< go => (iJ...) 

« right :> CU...) 

< goto :>(S g...) 

< penup s» (...) 

< pendn s> (...) 
<$ home i> (...) 



Prints the current turtle state as text 

from the current position, 

traces J distance in current direction 

changes the current direction by S 
degrees 

from the current position, traces to 
X y position: f>II. Returns distance. 

picks the "pen", up. Wo ink will flow 

puts the "pen down. Ink will flow 

take the turtle "home"; currently x y 
position 256 256. 



<$ Ink :> (.< white :>(...)On the CSL graphics color 
<} black x>(...) display, ink can be any of 
256 colors. 



<$ up r> C.«.) 



sets direction to 0, 



Currently there is already a turtle instance at the 
conversational level which does not require a 
name, so "go 100," etc., will work directly. 
"Erase" will erase the turtle area only. 



to repeat 

D... Evaluates D over and over. 

to done 

<$ v/lth :> (U...) Terminates the nearest "repeat" returning value 

Terminates the nearest "repeat" returning nothing 



to again 



Starts the nearest "repeat" again. 
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to do N 

0... Rcpc^ats i) over and over B number of times. 
'N* contains current loop count. 
•done' and 'acjciin' work. 



to for variable start stop step cxp 

CS=* variable «- D. receive a name to vary 

(l^ start ♦- (<5*- :>(n)1) got start number (1 if not mentioned) 

C^ stop *• {<S to :> (JOstart) got stop 

number (same as start if not mentioned) 

get step number (1 if not mentioned) 

'do' is optional 

get expression to be Iterated and Iterate It. 

•done' and 'again' work. 



(^ step *^ i< by » (0)1) 

<$ do, 

0* exp ♦- D. ... 



to vector 

Isnew :> (S...) 



Creates a new vector, fi In length 



< Is :> 



< 7 :> (...) Answer Is 'vector' 

<;? vector =► (...) Answer Is 'true' 
B . U false Answer Is 'false' 



<$ print :> (...) 
<$ length => (...) 
< eval :> (...) 



Prints out current contexts of the vector 
Answer is the number of elements in this vector 
Answer is the SMALLTALK evaluation of 
the contents of this vector. 



< t' :^ tS^ lower bound «-P. 

|<5 to T>f0- upper bound*-Jl. 

N3=> 



<5 find :> 



<> 



{■■■ 



*-:> (P...) A 



<S all o (JJ...) 

a> vector2»- d,<$ [ii'--|bnd2-g.to.(g='ubnd2-g.<J] 



"<$ first » 
<last :> 



<S non i> ()]...) 
'<$ non :> (8...) 
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to string 

Isnew :> (P...) 
< Is => 



Creates a new string, [I characters long 



< 7 :> (...) Answer Is 'string' 

<5 vector s> (...)Answor Is 'true* 
D . rt false Answer Is 'false' 



< print :> (...) 
( 



Prints the current content of the string 



<t => 



CiV lovverbouncl«-i} 

*) to =>:dV' upper bound*-P. ^ 



h^3 :> 



<2^ 

< length :> (...) 
<f eval :> (..,) 

< ~ s> (0...) 

< + r> (S...) 

< file s^ (...) 



^-=» (»...) 



<J- :> <J nil -► 01...) 

iiy vector2-n.<J[i2-|tand2^g.to.(i>'ubnd2*-g.<3 

I— / 

< find of<^ first :>|<J non =» CS...) 

hi...: 

<J last x^}<J non :> (0...) 



[,... 



Answer is current length (in characters) 
of this string 

Sr/IALLTALK will evaluate the contents of this 
string as though it were typed in at the Keyboard 

returns false if the string nnd S do 

not contain the same character sequence 

Makes a new string consisting of this one 
and i; appended. 

Fills string from the keyboard until a 
! is pushed. 
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uriur/Es 



to mx (...) 
to my (...) 
to button n 



to In X w y h 

g g g S- 
to core (...) 

to kbck (...) 

to kbd (...) 

to read (...) 

to sp (...) 
to cr (...) 
to show def 



returns tlie current x location of the mouse 
returns the current y location of the mouse 




means no buttons on 

1 check first button 



2 check socondbutton - - 



4 check third button 



5 - 



Returns true If mouse Is In the box; otherwise false, 

tells you how much room Is left. Anything larger 
than 600 Is good. 

keyboard check. If a character has been typed and Is 
waiting 'kbck' will be true, otherwise false. 

v/aits until a character has been typed and then returns 
the character. 

shows aprompt (,/7^), lets you type until a dolt (S) 

and returns with a vector made up from what you typed. 



pHiits a space 

prints a carriage return 

prints out the class definition In a pretty format 



to edit def 

D . (<? title :> (...) 




starts edit with title line of the definition 

starts edit with body of definition 

a Ici/ef of the definition will bo displayed 

(sub lists are rcprcGcntcd by D); t^'so a menu of 

commands which Include 
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Command 'Bugs' Explnnalion 



Add Appends whnt you type to the end 

Insert . Inserts what you type In front 

Replace .. Rcplnccs what you type between bugs 

Delete ,. Deletes between the two bugs 

f/love ... Move what is bctv^een the two bugs in front of final bug 

Up . Raises a sub list one level 

Push .. Pushes what is between the two bugs down one level 

Enter . Enters a sub list 

Leave . . Leaves a subllst 

Exit Exits from the editor 



to addto def newdef adds more message handlers to a class definition 
D g... addto numberii^' (<5 max r> OiV x«-P. 

X <SELF :> (<J SELF) A X )) 



to obset ... 1 : vec size end 

Isnew :> (0—) creates a new obset p long. 

<5 Is :» (<J ? => (...) Answer is 'object' 

<! obset i> (...) Answer is 'true' 
, ft false Answer is 'false' 

<} print s> (...) The contents of this obset are printed out. 

.<? *. i> (J]...) puts g Into the obset 

< delete :> (£i...) removes if it is there 

<J map :> (0...) takes the. message and runs it 'length' 

number of times. A typical way to use it for an obset *sV 
might be, st map »i''(vcc [i] hasmouse) 
This would cause every object in tiie obset *st* to be 
asked the question hasmottsc 

An obset which exists in the system when you start up. Is 'c/efs' which, every 
time you use to, is setit the name of the new class definition. 
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THE miGHTY DISPFHAMF. 



This class definition has been done and redone (by Diana Merry) many times In 
an attempt to build n very tjonernlly useful r.ct of objects which will box text In 
rectancjics, justify at word boundaries, find pointed at characters and words, 
and so on. Not every feature Is presented here. Diana and SYSDEFS can tell 
you the rest. 

There are two boxes: a 'window' atid a 'frame*. The text (which Is held In 'fauf ) 
v/ill be automatically boxed within the frame boundaries. What you see on the 
screen Is governed by the window botjndarics: if they are equal to or larger 
than the frame you will see evcrythinci; ottierwise, only that part of the frame 
which Is In the window vAW be seen. 



'reply' will contain useful things which Diana has discovered such as: 

reply= some of the window Is visible and some of the frame 

1 window is not on display, x> GOG and/or y> 808 

2 frame Is completely out of the window 

11 frame height has been automatically Increased to accommodate 
the text In 'buf 

12 means that window bottom has been overflowed and that scrolling 
has happened 

13 means both 11 and 12 



to dispframe Input; winx winwd winy winwd frmx frmht buf ... 

reply editor :... 

Isnew t> (gg U 9 8—) The first four numbers set 

both the window and frame boxes to the same size. 
The final part of the message is the string which goes 
Into 'buf. 



< -.:> (0...) 

"<5 show :> (...) 
<f clear ^v (...) 
<J fclear => (...) 

< scroll » (...) 

< mfindc => (815...) 



If D Is a character or a string 

It will be automatically appended to 'buf 

Show clears the intersection of window 

and frame and displays 'buf boxed In the frame 

clears the Intersection of window and 
frame and clears 'buf. 

just clears the intersection of window and 
frame. Leaves buf alone. 

scrolls 1 time. The old first line Is lost. 

...mouse find character... 
J] nnc/ \\ arc x ancly 
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<$ frame i> (...) 
•^ knows » (ev) 



locnlions (iiraially (jotten from the mouse). If these 
coincitic with a visible chciractcr in this frame 
the ijulGx of tht'it chnrnctor in 'biif will be returned. 
-1 means you arc in the frame but after all the 
characters. -2. means you are not in the frame at all. 

...mouse find token... 

Works just like 'mflndc' except 

words are looked for. 

draws a box around the frame. 

calls Sr/IALLTALK from inside the frame. 



FILES AND FILING 



Another area which is handled i/cry comprehensively by this system. Class *flle' 
will hardly be presented here. Instead the four or five things which will cover 
most needs are shown. Steve Wcycr and SYSDEFS can tell you more. 



to fllout 

« pretty :> (...)) 



« add o- (...)) 



S... 



If pretty js there 

file looks nicer but f ilout takes longer. 

a string for a file name. 

If ndcl is there, deflnltionsvvlll be added. 

to end of file. Otherwise, the old stuff In the file will be 

clobbered. 

If this Is present, It Is a vector of names of class defini- 
tions. Otherwise, all the names \n defs will be read out. 



to fi'Un 




(g...) 




to type 




g... 




to dlr (.. 


..) 



The file named by the string message will be read Into 
SMALLTALK just as though you typed it. 



A string for file name. Types a flic (on the 
screen) from one which was previously filed out, 

prints out the SMALLTALK part of your file directory. 
dpO ifst will show the complete directory 



